COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TBLTST"
C00004 ENDMK
C⊗;
BEGIN "TBLTST"

REQUIRE "TABLE[LIB,HE]" LOAD_MODULE;

EXTERNAL REAL TTRAD;
EXTERNAL INTEGER TTINV;

DEFINE CRLF="'15&'12", RAD=".0174533";

EXTERNAL PROCEDURE TTDELT(REAL R);
EXTERNAL PROCEDURE TTREAD;
EXTERNAL PROCEDURE TTLOCK;

INTEGER I, J;
STRING STR;

SETFORMAT(10,4);
TTREAD;
IF TTINV THEN OUTSTR((IF TTINV<0 THEN "INVALID POSITION" ELSE
	"NOT INITIALIZED")&CRLF);
TTINV ← 0;
WHILE TRUE DO
	BEGIN "LOOP"
	OUTSTR(CRLF&"POSITION="&CVF(TTRAD/RAD)&" DEGREES"&CRLF&"*");
	STR ← INCHWL;
	I ← STR[1 FOR 1];
	IF I="D" THEN TTDELT(REALSCAN(STR←STR[2 FOR ∞],J)*RAD) ELSE
	IF I="R" THEN TTREAD ELSE
	OUTSTR(" ??");
	IF TTINV THEN OUTSTR((IF TTINV<0 THEN "INVALID POSITION" ELSE
		IF I="D" THEN "TIMED OUT" ELSE "NOT INITIALIZED")&CRLF);
	END "LOOP";
END "TBLTST";